home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #4 / Commodore_Disk_User_Vol.3_4_1990_-.d64 / m-s technical (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  70 lines
  1. 1 poke53280,5:poke53281,11:h$="[147]   [205][213][204][212][201]-[211][208][210][201][212][197] [212][197][195][200][206][201][195][193][204] [201][206][198][207][210][205][193][212][201][207][206]"
  2. 2 h$=h$+"      [194]y [202]ason [198]inch        ([195]) 1989 [195][196][213]"
  3. 3 printh$:print"","    [158][205]ain [207]ptions":print,"    [163][163][163][163][163][163][163][163][163][163][163][163]":d=3:c$="[147][142]"
  4. 4 print,"[157][157][157][150]1. [155][196]isplay general stores":print,"[157][157][157][150]2. [155][208]rint (1)"
  5. 5 print,"[157][157][157][150]3. [155][196]isplay [205].[195]ode methods":print,"[157][157][157][150]4. [155][208]rint (3)":poke198,0
  6. 6 geta$:ifa$<"1"ora$>"4"then6
  7. 7 onval(a$)goto9,8,9,8
  8. 8 d=4:c$="[147][208]lease wait..."
  9. 9 open1,d:printc$;:print#1,"multi-sprite technical information"
  10. 10 print#1,"by jason finch  copyright 1989 cdu"
  11. 11 print#1,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":ifa$>"2"then30
  12. 12 print#1:print#1,"general":print#1,"[163][163][163][163][163][163][163]"
  13. 13 print#1,"x-ords     $c000-$c017 (49152-49175)"
  14. 14 print#1,"y-ords     $c018-$c02f (49176-49199)"
  15. 15 print#1,"colours    $c030-$c047 (49200-49223)"
  16. 16 print#1,"pointers   $c048-$c05f (49224-49278)"
  17. 17 print#1,"divisions  $c07f/$c080 (49279/49280)"
  18. 18 print#1,"time cnst. $c081/$c082 (49281/49282)"
  19. 19 print#1:print#1,"blocks     0        1        2":print#1,"[163][163][163][163][163][163]"
  20. 20 print#1,"msb      $c060    $c061    $c062"
  21. 21 print#1,"xexp     $c063    $c064    $c065"
  22. 22 print#1,"yexp     $c066    $c067    $c068"
  23. 23 print#1,"enab     $c069    $c06a    $c06b"
  24. 24 print#1,"mcol     $c06c    $c06d    $c06e"
  25. 25 print#1,"col1     $c06f    $c070    $c071"
  26. 26 print#1,"col2     $c072    $c073    $c074"
  27. 27 print#1,"pr'y     $c075    $c076    $c077":ifd=4thenprint#1
  28. 28 print#1:close1:ifd=3thenprint"press any key":poke198,0:wait198,1:poke198,0
  29. 29 goto3
  30. 30 restore:print#1:print#1,"assembly   hex   [160] definition   range"
  31. 31 print#1,"language   equivs."
  32. 32 readc$:ifleft$(c$,1)<>"*"thenreadp1$,p2$,p3$:goto37
  33. 33 ifc$="*end"then44
  34. 34 ifc$="*int"ord=4then36
  35. 35 print"press any key":poke198,0:wait198,1:print"[145]             [145][145]"
  36. 36 print#1:print#1:print#1,mid$(c$,2):print#1,"[163][163][163]":goto32
  37. 37 ifc$="s"then42
  38. 38 ifc$="j"then43
  39. 39 p=18:ifp1$<>"83"thenp1$=p1$+p1$:p=13
  40. 40 print#1,"ld"c$" #"p1$"             "p2$right$("          ",p-len(p2$))p3$
  41. 41 goto32
  42. 42 print#1,"sta "p1$"  $"p2$:goto32
  43. 43 print#1,"jsr "p1$"  $"p2$:goto32
  44. 44 print#1:print#1:ifd=3thenprint"press any key for menu":poke198,0:wait198,1
  45. 45 poke198,0:close1:goto3
  46. 46 data*int,j,49427,c113,,*off,j,51252,c834,,*pos,a,n,spr.number,0-23
  47. 47 datas,49284,c084,,a,x,x-ordinate,0-511,s,49285,c085,,s,49288,c088,,a,m,msb
  48. 48 data0/1,s,49286,c086,,s,49289,c089,,a,y,y-ordinate,0-255,s,49287,c087,
  49. 49 dataa,83,ascii code for 's',,s,49295,c08f,,j,50139,c3db,,*col,a,n,spr.number
  50. 50 data0-23,s,49284,c084,,a,c,colour,0-15,s,49285,c085,,j,50216,c428,,*siz
  51. 51 dataa,n,spr.number,0-23,s,49284,c084,,a,e,expansion,0-3,s,49285,c085,
  52. 52 dataj,50254,c44e,,*ena,a,n,spr.number,0-23,s,49284,c084,,a,e,dis/enable
  53. 53 data0/1,s,49285,c085,,j,50357,c4b5,,*prt,a,n,spr.number,0-23,s,49284,c084,
  54. 54 dataa,p,priority,0/1,s,49285,c085,,j,50396,c4dc,,*mul,a,n,spr.number,0-23
  55. 55 datas,49284,c084,,a,m,multicolour,0/1,s,49285,c085,,j,50435,c503,
  56. 56 data*cl1,a,b,block number,0-2,s,49284,c084,,a,c,colour,0-15,s,49285,c085,
  57. 57 dataj,50474,c52a,,*cl2,a,b,block number,0-2,s,49284,c084,,a,c,colour,0-15
  58. 58 datas,49285,c085,,j,50504,c548,,*poi,a,n,spr.number,0-23,s,49284,c084,
  59. 59 dataa,p,pointer,0-255,s,49285,c085,,j,50534,c566,,*add,a,d,div.pos'n
  60. 60 datavar.,s,49284,c084,,j,51176,c7e8,,*div (with 16 sprs),a,d,div.pos'n
  61. 61 data0-149,s,49284,c084,,j,50601,c5a9,,*div (with 24 sprs),a,d,div1 pos'n
  62. 62 data0-117,s,49284,c084,,a,d,div2 pos'n,32-149,s,49285,c085,,j,50612,c5b4,
  63. 63 data*tim,a,x,upper t.loop,1-20,s,49284,c084,,a,y,lower loop,1-20,s,49285
  64. 64 datac085,,j,50665,c5e9,,*for,a,f,format no.,0-4,s,49284,c084,,j,50717,c61d,
  65. 65 data*vdu,a,b,border col.,0-15,s,49284,c084,,a,g,backg'nd,0-15,s,49285,c085
  66. 66 data,a,i,ink colour.,0-15,s,49286,c086,,j,50784,c660,
  67. 67 data*com,a,n,spr.number,0-23,s,49284,c084,,a,b,blk select'n,1-3
  68. 68 datas,49285,c085,,j,50868,c6b4,,*bkp,a,l,low byte,0-255,x,h,high byte
  69. 69 data1-255,j,50966,c716,,*end
  70.